home *** CD-ROM | disk | FTP | other *** search
/ Libris Britannia 4 / science library(b).zip / science library(b) / PROGRAMM / DB_CLIPP / 2838B.ZIP / MDS2.ARC / TASKRPT.EDT < prev    next >
Text File  |  1989-02-25  |  480b  |  11 lines
  1. 1,1,24,80,3,0,0,28,24,80,1,0,24,9,8,19,23,24,2,66,0
  2. "SORT TASK.PROJ NO/G, TASK.TASK NO"
  3. "SELECT TASK.PROJ NO = PROJ.PROJ NO"
  4. "SELECT TASK.EMP NO = EMP.EMP NO & EMP.DEPT NO = DEPT.DEPT NO"
  5. "REMARK ASSUME THAT EMPLOYEE WORKS 22 DAYS/MONTH, 8 HRS/DAY"
  6. "COMPUTE CHARGE = TASK.HOURS * EMP.SAL/(22*8)"
  7. "COMPUTE TOTAL REMAINING FUNDS = PROJ.BUDGET - CHARGE"
  8. "MESSAGE PRESS: S TO RE-START, M GO BACK TO MENU"
  9. "IF KYBD = S THEN GOTO TASKRPT"
  10. "IF KYBD = M THEN CLEAR, GOTO PERS"
  11.